;; macro definition to delete the content of the other buffer.
(global-set-key "\C-x\C-kD" 'delete-other-buffer)
(fset 'delete-other-buffer "\C-xo\C-xh\C-w\C-xo")

(fset 'rule-hyperlink
   (lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([134217728 134217847 24 111 134217788 19 13 25 return 24 111] 0 "%d")) arg)))
(global-set-key "\C-c\C-t" 'rule-hyperlink)

;(fset 'format-inline-xml
;   [?\C-a ?\C-\M-F ?\C-j ?\C-i])
;(global-set-key "\C-F" 'format-inline-xml)